home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / TEST11.TRP < prev    next >
Text File  |  1995-01-17  |  225b  |  12 lines
  1. procedure main
  2. var
  3.         st  : string
  4.         i   : byte
  5. endvar
  6.         write("Enter String : ")
  7.         readln(st)
  8.         for i := 1 to length(st)
  9.                 writeln(copy(st, 1, i))
  10.         endfor
  11. endproc
  12.